home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / maxime.dxr / 00022.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  966 b   |  39 lines
  1. on exitFrame
  2.   global sprpos, Aframe
  3.   put sprpos
  4.   if sprpos = 1 then
  5.     set the visible of sprite 3 to 0
  6.     set the visible of sprite 4 to 1
  7.     set sprpos to 2
  8.   else
  9.     if sprpos = 2 then
  10.       set the visible of sprite 3 to 1
  11.       set the visible of sprite 4 to 0
  12.       set sprpos to 3
  13.     else
  14.       if sprpos = 3 then
  15.         set the visible of sprite 3 to 0
  16.         set the visible of sprite 4 to 1
  17.         set sprpos to 4
  18.       else
  19.         if sprpos = 4 then
  20.           set the visible of sprite 4 to 0
  21.           set the visible of sprite 2 to 1
  22.           set sprpos to 5
  23.         else
  24.           if sprpos = 5 then
  25.             set the locH of sprite 2 to the locH of sprite 2 - 45
  26.             if the locH of sprite 2 <= -270 then
  27.               puppetSprite(2, 0)
  28.               puppetSprite(3, 0)
  29.               puppetSprite(4, 0)
  30.               go(15)
  31.             end if
  32.           end if
  33.         end if
  34.       end if
  35.     end if
  36.   end if
  37.   go(the frame)
  38. end
  39.